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News and Reviews 

by Mike Dunn, Co-Editor 

Many of our members bought the new Atari 520ST computers and 
are very happy with them. Some did not work after the trip overseas, 
but all could be fixed by re-seating the chips. Atari is to be congratulated 
for helping user groups to fix their computers and giving advice over the 
phone on how to do so. A letter just received from Atari states that BASIC 
is almost ready to ship as well as the upgrade ROM; both will be sent 
free of charge to those who bought their ST through the club. Jim 
Bumpas will be in charge of the ST info since he bought one and I didn't. 
Software for the ST is being announced at a rapid rate; the newest is 
by Batteries Included (17875 Skypark North, Suite P, Irvine, CA 92714.) 
Called The Isgur Portfolio System it is a very elaborate stock market 
program, including tax implications, what-if abilities. 
Telecommunications, etc. It costs $250 and is for the IBM-PC and the 
520ST. 

Two interesting new devices are announced this month. One is 
Computereyes (Digital Vision, 14 Oak St #2, Needham, Ma 02192,), a 
$130 interface to attach a video camera or TV to your Atari to obtain 
digitized pictures. Larry Gold will report more about this. The other is 
$3500 fingerprint biometric verification and identification system that 
reads your fingerprints and verifies it before you can use your computer. 
Called the RidgeReader (Command Productions, 62 Bowman, Rye 
Brook, NY 10573) it is just the thing to keep the kids from playing games 
on your Atari when they should be studying. 

TAB Books (POB 40, Blue Ridge Summit, PA 17214) has just released 
their new 96 page catalog of technical books. If you're are not familiar 
with TAB, they put out technical books on just about any subject you 
can think of, from computers to the story of the Lotus car; from books 
on the Atari to how to repair clocks. An example is a book they recently 
sent to me to review — Computer Technicians Handbook by Art 
Margolis ($17, 500 pages). It begins by explaining how computers work, 
truth tables, binary arithmetic, how the various chips including CPU's, 
interface chips, logic devices, memories, etc. work. It also explains 
machine language and gives hints on how to trouble shoot and repair 
computers. This is not a step-by-step how to do it guide; the book tries 
to explain how everything works so you can fix the computer by 
understanding what is happening. 

MPP (Microbits) of Albany, OR has closed down and reopened with 
the same principles as Supra Corp 1133 Commercial Way, Albany, OR 
97321, (503)967-9075. They will continue to market MPP products. Kirt 
Stockwell is no longer with them, but has formed a new company 
SofMarc (4325 Sean, Eugene, OR 97402 / 503-689-3565, BBS 
689-2348) Their first product is our new Bulletin Board System ESP 
Mindlink - see Larry Gold's article. 

Batteries Included, the Canadian software company, has dropped 
plans to produce the 80 column cartridge for PaperClip because of 
difficulty of obtaining the proper chips in a timely manner. Incidentally, 
I've also been having problems with dropped characters with PaperClip 
— anyone else having the problem? 


We have many new disks to add to the library this month thanks 
to all the great programs our members keep sending in and also from 
other clubs we trade with. The quality of the public domain programs 
is becoming quite remarkable, and some of the disks are of commercial 
quality. The single subject disks all have built in documentation and/or 
help facilities. 

Best of ACE -15 ($10). The latest programs from the newsletter, 
it includes SkyPlot, the long astronomy program from our pres Dick 
Barkley which locates and pictures objects in the night sky, run time 
versions of Stan Ocker's Action! program Double Bounce as extensively 
modified by Rick Groskiewictz (who incidentally sent us four disk sides 
full of Action! programs and articles for the next few issues), and other 
programs from the last couple of issues of ACE. 

ACTION! Disk -4 ($10). Has both source code and run-time 
versions of the recent ACTION! programs in ACE including this months 
ROWS by Stan Ockers (but not in run-time since it wouldn't work), 
XECOPY and FID by Dale Lutz, and several variations of Stan's BOUNCE 
program by Rick Groskiewictz. Rick finds BOUNCE to be his favorite 
game, so he has modified it for one player, one joystick, etc. There are 
also some of the utilites found in the last few issues. 


ACE Business Disk -2: Data Manager by John Logan ($10) For 
you BASIC XL owners, here is a very nicely done data base system 
which even has a built in tutorial. We could supply it with the BASIC 
XL runtime for those who do not own the O.S.S. cartridge; but I don't 
know how much memory that might take up and interfere with the 
program. Worth getting just to see the various programming techniques 
used if you have BASIC XL. 

ACE Business Disk -3: General Ledger ($10) by Neville Williams. 
This General Ledger program is designed for a small business with 99 
accounts. Written by one of our Australian members, it requires you to 
use the European style of dating (DDMMYY). It includes an on disk 
manual which is very good; please see review in this issue of the disk. 

From other Atari Clubs: 

Wizard $15 a public domain Bulletin Board System. 

**from Computer Squad (c/o Suzi Subeck, 2625 Corinth Road, 
Olympia Fields, IL 60461) comes two of the most outstanding public 
domain programs I've ever seen: 

Computer Squad 3-D CAD System ($10). Written by Steve Ulstad, 
a professional arcade game designer, this machine language program 
allows you to draw and save screens, offset it, reflect the design, change 
scale on one or more axes, perform translations, change viewing angle, 
depth and aspect ratios, rotate, and print the images. Comes with 
extensive on disk documentation. 

Computer Squad CAD/CAM Facility Layout ($15 2 disk sides), 
by Jack Gilchrist and Phil Heavens. The authors are used to working on 
large scale graphic systems, this program is more geared to floor plans. 
It also has 3-D capabilities. You can also change the scaling, viewing 
windows, viewing angle, etc. It includes extensive on-line help facilities, 
examples and a large manual you can print out. It also includes a text¬ 
labeling feature. It is written in BASIC and takes up two disk sides. 


ERACE UPDATE 

DISK NO. 11 

GERMAN,PORTUGUESE,FRENCH - These three language 
programs are similar to the Spanish and Italian on the ERACE Disk #9 
but in a multiple choice format. 

LEXICON — provides 200 words, their synonyms and antomyms 
to develop word skills. 

LETTNUMB — A letter and number identification for the preschooler. 

TRANSITN — TRANSITION: A Game of Logic. Only two ways to 
solve the puzzle. Very challenging. 

TICTOC — What time is it? Learned to tell the time the old fashioned 

way. 

HELP — Documentation for programs on this disk. 

— N. F. Young 
ERACE Sig Editor 

TEASERS BY TOBBS 

Teasers by Tobbs ($55, Sunburst communications, Recommended 
grade levels: 4 to adult) contains two challenging programs — Addition 
and Multiplication. There are six levels to each program. Level 1-3 provide 
basic mathematic drills to reinforce mental arithmetic skills. In Levels 
4-6, the puzzle is in reverse causing the student to work backward by 
subracting/dividing. 

The student is learning relationships between mathematical 
operations. Every level increases in diffirculty. 

Tobbs is a lovable character who appears with the drill/puzzle to 
guide the student in finding the missing number. There are visual 
responses whether an answer is correct or not. The instructions are clear 
and precise and included on the disk. One or two persons can play. There 
is a 30-page manual in a bright orange notebook with suggestions for 
both parent and teacher. 

Joe, our 3rd grader enjoys this disk. It can be challenging yet hits 
the basics. The boy down the street who hates math is drawn to the 
higher levels. He likes to use his logic to solve the puzzles. 
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XE COPY 


The first thing I did after I familiarized myself somewhat with my 
130XE was to write a sector copier which uses all 128K available to copy 
a single density disk in a single pass. This allows multiple copies to be 
made easily because the whole disk is read into memory at a time. Double 
density disks can be copied in two passes. Even though it used to be 
a tight squeeze to be able to copy a single density disk in two passes 
with the old 800, I had plenty of room left over in the 130XE to do it 
in a single pass. 

Using the Program: 

The program is extremely easy to use. Those of you with an ANALOG 
speech synthesizer are in for a treat - if you hook it up before running 
the program, you will be audibly reminded in nearly clear English to insert 
the source disk, or whatever. The only keys used are the Start and Select 
buttons. The program is completely self prompting along the way. One 
point to bear in mind is when you are copying a double density disk, make 
sure not to forget that first you have to write out the first half of the 
disk on all your destination disks, then read in the other half, and write 
the second half out to all of the destination disks. 

All your destination disks must be preformatted in the correct 
density before you begin copying. If an error occurs when copying, you 
will be given a chance to retry that sector. 

As a disk is read in or written out, a bar graph of letters (R for read, 
W for write) goes across the screen to show you how the program is 
progressing. For those of us with digital track readouts, however, this 
is not such a big deal. 

The Program Itself 

As some of you observant ones may have already noticed, XECOPY 
is written in beautiful structured ACTION!. ACTION! is a logical choice 
for this program, since it allows me easy access to operating system 
routines for reading a sector while at the same time allowing me to code 
in a high level language. 

A few of the procedures may be of interest to the programmers out 
there. Procedure SystemCheckO could be used in any programs made 
only for the 130XE. This procedure actually does two checks — first 
it verifies the bank switching ability of the computer by storing a number 
in the main memory area, attempting a bank switch, and storing another 
number to the same memory address. The bank is then flipped back, 
and a check made to see if the original stored number is still intact. If 
so, this test is passed. The second test checks to see if a cartridge is 
present or not. Note that my procedure BankChangeO automatically flips 
out the built in BASIC when it is called, so the BASIC is gone when this 
test is tried. All the program does is store a series of values in a location 
where a cartridge could be, and then it checks to see that the same value 
is still there. If a ROM were present, the value stuffed in would not 
necessarily be there when the location is read. If this happens, then this 
test is failed. If either test is failed, the machine locks into an infinite 
loop (but since location 580 is alerted, reset will cause the machine to 
reboot). 

Those with a speech synthesizer will want to look at procedures 
InitSpeakO and Say(). The Say() procedure takes a byte array of 
allophones (whose end is marked by a 255) and dumps them out to the 
speech synthesizer, while the InitSpeakO procedure simply prepares the 
joystick ports for output. 

Another procedure of note is the procedure CheckSpeakO. It checks 
whether or not an ANALOG speech synthesizer is hooked up so the 
program will talk if possible. All it does is send a delay to the synthesizer, 
and waits to see how long it takes to respond. If it takes too long (more 
than 3 jiffies), then Say() procedure is replaced by a simple delay 
procedure. 

The HandleSectorO procedure is used to set up the call to the 
resident disk handler. I must give credit to Roger Edwards who presented 
the technical information for this in the Edmonton Atari User's group 
newsletter. Note that when a double density sector is to be written or 
read, a different system jump must be made than when a single density 
sector is handled. Also note that this same routine both reads and writes 
sectors depending on the value of the BYTE direction. 

Program Notes 

The program simply goes from sector 1 to sector 720 and reads the 
disk into memory. Bank switching is done whenever the current bank 
gets filled up. Notice that the procedure ReadAndWriteO looks after the 
buffer allocation. It both reads in and writes out the sectors by calling 
HandleSectorO. You may notice that the first three sectors are handled 
specially by ReadAndWrite if the disk was double density. It turns out 
that on all disks, sectors one through three are in single density. These 
are the boot sectors which are read first when you boot up your 
computer. 


If you wish to compile this program yourself with your ACTION! 
cartridge, you will have to have the Runtime package. Since the program 
will not run if a cartridge is installed, it is impossible to run it with the 
ACTION! cartridge in. Therefore, those of you without SYS.ACT will have 
to order the disk with XECOPY.COM on it in order to use the program. 
If you have SYS.ACT, make sure you compile XECOPY from off of the 
disk so that it resides low enough in memory in its runtime form (i.e. make 
sure that the editor is cleared before you compile). 

Conclusion 

This program is not the ultimate in a copier. There is still some more 
memory room left to add all kinds of bells and whistles. However, I 
wanted to make a simple, easy to use sector copier to use all of the 
130XEs memory for a buffer so I could make multiple copies of disks 
(especially double density) quickly and easily. XECOPY fits the bill nicely, 
and will be a very useful addition to any 130XE owner's library. 

— Dale Lutz 



GENERAL LEDGER ACCOUNTING SYSTEM 

The General Ledger Accounting System (by Neville R. Williams of 
Queensland, Australia and available from ACE for $10, including a 
Translator) is a well written and well documented general ledger 
accounting program. The author has included an excellent manual and 
a brief tutorial on disk. The program requires an 8-bit Atari with at least 
48k, a Translator with XL/XE machines, one disk drive and a printer 
capable of coding tab stops. 

The system limitations include: 99 accounts numbered from 1 to 
99. A total of 1,000 transactions can be entered before a balance forward 
is required and each entry is limited to ten dissections. The program 
presupposes that the user has a basic understanding of the double-entry 
system of accounting. 

As I worked with this program I was more and more impressed with 
the thoroughness of the programmer's work. Try as I might, I could not 
find any place which did not work or any area which was not well 
documented. However, I do want to caution those who may use the 
program that when the date is called for, the program requires the date 
be given in the following format: DDMMYY. 

I want to see more accounting applications from Neville Williams 
as he clearly understands what is needed in an accounting program. 

— Kathy Henderson 
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BUMPAS REVIEWS 

GEMSTONE WARRIOR (SSI, $35) is an “action, strategy and 
adventure in the netherworld.” Demons have stolen the Gemstone and 
separated it into 5 pieces which you must find and reassemble. The 
keyboard is required for many functions, but the joystick is an option 
for movement, firing and searching. The game may be saved, paused, 
or played at various skill levels. 

To make your quest difficult (if not impossible!) are diseased and 
vicious monsters, Thieving Flyers, Skeletons, Gas Plants, Giant Amoebas, 
Ghosts, Summoning Eyes and the Demons themselves. 

As the Brave Warrior who has taken up this challenge you will 
depend upon your primary weapons (arrows and magic bolts). But you 
will also find up to 15 different types of magic items (some of which 
will be inside coffins and chests) and treasure. Several of the magic items 
have undocumented properties - you must discover what they do (they 
may differ from game to game). Even the items for which you know what 
they do, experience will be needed to discover how to use them 
appropriately. 

There are various doors, archways and gates into the various rooms 
of the underground caverns. Some places will appear to be dead ends 
with no way out as you return to the same rooms again and again. But 
perseverance, cleverness, agility and careful observation techniques will 
carry you through to success. This is not a game to master in one sitting! 

Synapse & Broderbund have released the first “electronic novel", 
MINDWHEEL ($?). Nothing less is at stake than the survival of 
civilization. Four unprotected disk sides of files are provided together 
with a hard-bound novelette of nearly 100 pages. You must provide a 
“Bookmark” disk on which to save a game in progress. If you have a 
printer, you can also create a printed record of your progress in the game. 

Two disk drives are required, and the program also supports 52k 
add-on RAM boards, Mosaic and Axlon Ramdisks. A Happy-modified disk 
drive is also specifically mentioned for those who might want faster 
loading and responses. 

Basically a text adventure, the program comes closer to a “natural 
language" game than earlier text adventures do. I believe it recognizes 
close to 1200 words. You need to read the book to learn as much as 
possible about the four main characters in the game. You must “travel" 
through the minds of these four: Bobby Clemon, an assassinated rock 
star; The Generalissimo, a dictator and war criminal; The Poet, composer 
of epic literary achievements; and Dr. Eva Fein, scientist, humanist and 
distinguished musician. 

The object of your quest is to find The Cave Master and the Wheel 
>f Wisdom which he guards. 

I'm having more fun with COLONIAL CONQUEST (SSI, $40) than 
I've had with any computer game in a long time. It's a very social game 
— best played with 6 players. But the computer will play any of the 6 
positions not used by one of your friends. Each computer position may 
be separately set at One of 10 levels of difficulty. Players control one 
or more of 6 colonial powers: England, Germany, France, USA, Japan 
and Russia in one of three scenarios: Standard (no one starts with any 
colonies), and two historical scenarios (1880 and 1914). 

The map scrolls across 4 screens of very good graphics containing 
131 land areas plus the oceans. Each player may build and move armies 
and fleets to attack or garrison possessions. Land zones may be fortified. 
You may pay for espionage. The information you get may not be entirely 
accurate, but will give you some indication of the economic value of a 
zone and the number of its defenders. You may also subvert the armies 
in zones not controlled by other players in order to control the zones 
outright, or to make conquest by force easier. Economic aid may be given 
to any other player or to a minor country. 

The real strength of this game is the opportunity and necessity for 
diplomacy to help you win. Especially Russia and Japan need skills in 
this area to do well. If you just fight all the time you'll find your forces 
depleted and so cannot be much of a threat to anyone. On the other hand, 
if you're too threatening, anyone can be wiped out by a combination of 
other players. 

Each player spends an annual budget of income from the possession 
of land zones and gifts of economic aid from other players. Control of 
all the zones in a larger region (i.e., South America or the Far East) may 
produce big bonuses of income. 

As a grand strategic multi-player game of diplomacy, treachery and 
“force majeur" this game is unexcelled. 

I've just begun using the new Prentice P-212ST modem (after 
selling my 300 baud Hayes). This 1200 baud modem sells for less than 
$300 and advertizes "Hayes compatibility". 


If you are used to all the lights on a Hayes, you might miss them. 
The Prentice has only a power light and a carrier detect light. You can 
set the internal speaker to be on at all times, so you should be able to 
hear some data noises. There are no dip switches to set: all modem 
functions are software controlled and can be set by commands from 
terminal mode in your communications software. 

I've been using Amodem quite a lot lately, but so far I've been unable 
to use the Autodial Directory which was a nice feature of the program 
when I used it with the Hayes. I've set the software switch (ATS18 = 0) 
to emulate the Hayes. But when the autodial selection is made the screen 
tells me it's dialing, and then that it's made a connection. But no dialing 
occurs, and no connection is made. When I dial manually on the keyboard 
in terminal mode I have no trouble making connections. 

I never realized how much I would enjoy seeing a whole screenful 
of information flash on the screen at once. But after watching the cursor 
paint across the screen at 300 baud, 1200 baud seems extremely fast. 
I can't even imagine 2400! 

— Jim Bumpas, Co-Editor 

VP's RAMBLINGS 

The summer is about to end, school is ready to start and Atari Inc. 
is starting to go full blast with the ST, XE and anything else that they 
have up their sleeve. The stores are beginning to have and sell new 
programs and the future looks better for Atari than it has in a long time. 

One company which hasn't been sitting back and waiting is 
Broderbund. They have a new graphics disk for the Print Shop program. 
This is the second graphics disk for that program and it is just as good 
as the one before and makes the choice of graphics that much more for 
the user to choose from when he uses the program. The newsletter has 
from time to time used these graphics when it was appropriate to the 
issue. Broderbund should be congratulated for continuing to make a fine 
program better and more useful. 

I wish more companies would update their programs or enhance 
them with more features as has Broderbund. They have done the same 
with templates that they have brought out for Synapse's SynCalc. I will 
talk more about this in another article. 

We are Beta testing a BBS program for a new company called 
Sofmark. The board is almost to its last stage of developement so please 
bear with us for any problems you may find. We want to have your 
comments on the board and also let us know if there are any features 
you would like to see incorporated into the board which are not there. 
When it does come out it will be called BBS Mindlink. 

The BBS is easy to use as all you have to do when you call up is 
give it your name and after a short pause it will ask for your phone no., 
then four character password. Please be careful as the board is written 
in machine language and is very fast in its respnse time. Once you have 
signed on and have gone through the board be sure that you answer the 
prompt about saving your password or you will have to sign on again 
until you have saved your password. I can't upgrade your level to have 
access to the whole board unless you log your password. I hope uou 
like it and will let us know what you think about it. 

— Larry Gold 

RAMDISK 

The new Atari 130XE has an extra 64K of bank memory which can 
be utilized as a RAM disk which will run 20 times faster than a normal 
floppy disk. The program TMDRIVE.BAS can be used in conjuction with 
the Atari Translator to give you a single density disk emulator with 523 
free sectors. It should work with any DOS system which uses the Atari 
file management system (most do). 

To run the program, first boot the translator disk, then boot whatever 
DOS system you normally use. Now run the program from BASIC which 
will automatically set up the drive emulator (be sure you have saved the 
program first, as running it will destroy it). Type NEW before continuing. 
You can now address this RAM disk as D4:. 

Do not try to format the RAM disk as it will indicate more free 
sectors than there actually are. If you need to reformat it, then just run 
the program again. If you are using Atari DOS 2.0 then you can put 
DUP.SYS and MEM.SAV onto D4:. First copy the files you want to D4: 
(DUP.SYS, MEM.SAV, etc.). Then from Basic type: 

IF PEEK(6192) = 49 THEN POKE 6192,52. 

IF PEEK(5948) =49 THEN POKE 5948,52. 

— Ralph Walden 
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XE DISK COPIER BY DALE LUTZ 


; XE disk copier 
i version as of 7;80 June 18 
; by Dale Lutz 
;System Equates 
Include"D8;sys,aet" 

DEFINE Read-"$52",Write-"$50",double-" 
2 "/ 

singles"!", startle", select-"5" 

codetop="i4888",memtop="48i55" 

BYTE DDEUEC-$388, 

DUNIT-$38i, 

DC0HND=$382, 

D5TAT5=$383, 

C0N50L=53275, 

pacti=54ei8,pdat-54ei6, 

Mode,doublecode,direction, 
flasher=7i8,bank,realmode,grapher 


CARD DBUFFER-$384, 

S£CT0R-$38A, 

NUMBYTE5=$388,buftop,secbegin, 

secend 

BYTE ARRAY dest :[ 21 7 55 17 8 12 
12 8 11 28 37 15 11 8 255 3, 
source = £ 55 55 58 55 55 8 255 3, 
disk :[ 21 12 55 41 2 2 2 2 3 39 7 
7 55 55 2 55 13 55 17 8 255 3, 
insert = C 12 12 11 2 55 55 52 17 8 25 
5 3, 

name =[ 4 2 2 28 6 2 2 33 28 62 2 2 
45 31 17 55 8 255 3, 
intro = £ 55 55 12 12 44 61 62 2 5 
26 26 55 55 2 33 12 12 55 41 2 8 24 
9 15 51 2 2 2 8 255 3 


PROC DSKINU-$E453 £3 
RETURN 

PROC 5I0M-$E459 ?) 

RETURN 

PROC GoBack?) ;stub used to return to 
RETURN ;handlesector after erro 

r 


PROC Restart?) ;stufc to rerun the prog 

ram 

RETURN jafter error 

PROC SetScreen?) 

GraphicsCiS) 

PutDE ?63 

Prin!DE?6," now") 

IF direction-read THEN 

PrintDECS," READING") 

ELSE 

PrintDE (6," WRITING"3 

FI 

PutDE (6) 

PutDE C6) 

RETURN 

PROC HyError?} 

BYTE a 

GraphicsC18) 

PutDE (6) 

PrintDEC6," error encountered") 

PutDEC6) 

PrintPE ?6," 3031") 

PrintDE(6," RETRY") 

PutDEC6) 

printDEce," amao") 

PrintDEC6," exit") 

PutDEC63 

WHILE consol<>start AND consol<> sel 
ect DO 

flasher"*! 

OD 

IF consol=start THEN 
SetScreenC) 

FOR a=i TO Csector/grapher) DO 
IF direction-read THEN 
PutDC6,*R) 

ELSE 

PUtD(6,'Ml 
FI 
OD 

GoBack?) 

ELSE 

Restart?) 

FI 

RETURN 

PROC HandleSector() 

DDEVEC-$3i ;disk device 

DUNIT-1 ;drive 111 


DC-8MfD=di recti on ;set for read or 
i te 

IF mode-double THEN 
MUHBYT£5-$I88 

D5TATS=doublecode ;either $48 for 
;write, or $89 for read 
SIOV?) ;gc do it 
ELSE 

DSKINUC) ;go do it 

FI 

IF DSTATSOi THEN 
HyError?) 

FI 

RETURN 

PROC In itSpeak?) 

BYTE p 

p-pactl 

pactl=P“4 

pdat-127 

pactl-p 

RETURN 

PROC Say?BYTE ARRAY word) 

BYTE a 

a-0 

WHILE word Ca) 0 255 DO 
WHILE pdat>128 DO OD 
pdat-word?a3+64 
pd3t-word?3) 
a-r+i 
OD 

RETURN 

PROC Delay(BYTE ARRAY word) 

CARD a 

FOR 3-1 TO 18808 DO OD 
RETURN 

PROC CheckSpeakC) 

BYTE clock-28 ; this procedure 

;checks that a 

Pdat-4+64 ;speech synth is 

Pdat=4 ;hooked Up*., 

clocked 

WHILE pd3t>128 DO 
IF C10Ck>3 THEN 
Say^Delay 
RETURN 
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XE CON’T 


FI 
QD 

RETURN 

PROC WaitForPressO 

Graphicsdd) 

PutDE(6) 

PrintDE(6," insert**) 

PrintDE(8 f “ SOURCE*') 

PrintDE(6," DISK") 

PutDE(6) 

PutDE(6) 

PrintDE(6/‘ press 
consoles 

IF direction=Read THEM 
Say(insert) 

Say(source) 

Say(disk) 

ELSE 

Positional) 

PrintD (6. "DESTINATION**) 

FI 

»IILE consol-7 DO 
flasher^+l 
OD 

RETURN 

^C ChangeDensityO 

Position(18,ii) 

IF node=5ingle THEN 
PrintD(6,"DOUBLE") 
node=double 
grapheme 
ELSE 

Mode=single 
PrintD(6,"SINGLE") 
grapher=48 
FI 

real»ode=»ode 

WHILE consol<>7 AND consoI<>8 DO 
consoles 
OD 

RETURN 

PROC- BankChangeO 
BYTE selector=540i7,nornal 

nor»ai=i28i64+2*l ;base on which to 
;add the bank sele 


IF bank=5 THEN 
selector=255 
ELSE 

selectormor»al+8*i6+bank*4 

FI 

RETURN 

PROC ReadAndWriteO 

;first read the thing in 
direction^Read 
doublecode=$48 
DO 

bank=5 
BankChange(3 
SetScreenO 
buftop=Nentop 
DBUFFER=COdetop 

FOR SECTOR=secbegin TO secend DO 
IF realnode=double THEN 
IF sector<4 THEN 
node=single 
ELSE 

node=double 

FI 

FI 

HandleSectorO 

IF (SECTOR HOD grapher)=8 THEN 
IF direction=read THEN 
PutD(6,*R) 

ELSE 

PutD(6, *H3 
FI 
FI 

DBIfFFER^DBUFFER+128*HOde 
IF DBUFFER)(bUftOp-257) THEN 
IF bank=5 THEN 
bank=0 
ELSE 

bank~+i 

FI 

BankChangeO 

DBUFFER-16384 

bUftop-32767 

FI 

OD jend Of FOR 

direction^write ; now set up for 
doublecode=$80 ; writing it out. 
consol-8 
Graphics(i8) 

PutDE(6) 

printDE(6,** aa-ED") 


PrintDE(6," write it out") 

PutDE(6) 

PrintDE(6,** anf®”) 

PrintDE(6," exit") 

Say(insert) 

Say(dest) 

Say (disk) 

PutDE(6) 

WHILE consolOstart AND consol <> s 
elect DO 

flasher—*! 

OD 

IF consol^start THEN 
WaitForPressO 
ELSE EMIT 
FI 

OD ;end of (nearly) infinite loop 
RETURN 

PROC CopyDiskO 

WaitForPressO 
IF node=double THEN 
secbegin=I secend=368 
ReadAndWriteO 
direction=Read 
WaitForPressO 
secbegin=36i secend=728 
ReadAndWriteO 
ELSE 

secbegin-i secendr728 
ReadAndWriteO 
FI 

RETURN 

PROC SystemCheckO 

BYTE testIoc=16385,flag,nu» 

flag=8 
testloc-22 
bank=2 
BankChangeO 
testloc^ss 
bank=5 
BankChangeO 
IF testlOC<>22 THEN 
PrintEC* Unable to Bank Switch 
...**) 

flagri 

FI 

FOR nun=l TO 55 DO 
Poke($A004,nuM) 

IF Peek($A004)<>nun THEN 
PrintE(" Cartridge Present.. 
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KANGA 


XE CONT 


flag-i 

nun=66 

FI 

0D 

IF flag-i THEM 

PrintEC" Program aborted 11 ! 

DO 00 ; infinite loop 
FI 

RETURN integrity test over.,, 

PROC Copier(3 

Goback^HandleSector 

Restart^Copier 

InitSpeakO 

Poke(588,3) ;set it up so that 

CheckSpeakO ;reset will reboot 

bank-5 

BankChangeO 

Poke(185,1923 

SysteaCheckO jverify correct system 

5ay(intro3 

Say(natte) 

DO 


bank=5 

BankChangeO 

Poke(186,1923 

Mode-single 

realnode=ttode 

direction^Read 

Graphics(183 

grapher=48 

consol-8 

PrintDE(6," 

single pass"! 

PrintDE(6," 

sFE?a asnas**! 

PrintDE(6," 

FOR 138XE "3 

PrintDE(6," 

BY "3 

PrintDE(5,“ 

dale lutz "3 

PutDE(63 

PrintDE(6," 


PrintDE(6," 

begin copying"! 

PrintDE(6," 

ggmr? 

PrintDE(6," 

change density"! 

PutDE (63 

PrintDE(6,"DENSITY: SINGLE"! 

DO 



flasher“+i 
IF consoUselect THEM 


ChangeDensityO 

FI 

UNTIL consolrstart OD 
CopyDiskO 
OD 

RETURN 


1125 FOR M=i TO 158:SOUND 8,H,16,18:NE 
XT M; SOUND 8,8,8,0 
1138 RETURN 


1135 REH fftimiBiTir 


CTER SET 


1149 RESTORE 1198 

1145 «EMT0P=PEEK(186| ;GRTGP-MEHTOP-4 
1158 POKE 186,GRTOP;GRAPHICS 1+165CHRO 
M-PEEK(7563*256 
1155 DIH A (83,R$(13 
1168 CHRAM-GRT0P*256;POKE 756,GRT0P 
1165 FOR N-8 TO 1823:P0KE CHRAM*M, PEEK 
(CHR0H+N3:NEXT N 

1178 FOR K-i TO 30; READ R$‘.R~A5C(R$3 

1175 IF R<32 THEN R=R+64 

1188 IF R<96 THEN IF R>31 THEN R-R-32 


1185 FOR 1-8 TO 7’.READ A;A(I3=A;B=I+R* 


8+256*GRTQP;P0KE B,A:NEXT I:NEXT K 
1198 DATA » 

1195 DATA 179,254,85,253,171,251,87,24 
7 

1288 DATA U 

1285 DATA 175,239,95,223,191,191,127,1 
27 

1218 DATA < 

1215 DATA 18,15,21,31,42,63,85,127 
1228 DATA > 

1225 DATA 178,254,84,252,163,252,85,25 
3 

1238 DATA = 

1235 DATA 178,255,85,255,178,255,85,25 
5 

1248 DATA $ 

1245 DATA 8,254,253,253,251,251,247,24 
7 

1258 DATA X 

1255 DATA 239,239,223,223,191,191,127, 
127 

1268 DATA ; 

1265 DATA 8,9,1,1,2,3,5,7 
1278 DATA £ 

1275 DATA 8,8,1,1,3,3,7,7 
1288 DATA * 


1285 DATA 254,254,253,253,251,251,246, 
247 

1298 DATA 3 

1295 DATA 15,15,31,31,63,63,127,127 

1388 DATA ( 

1385 DATA 237,239,218,222,188,188,184, 
128 

1318 DATA M 

1315 DATA 76,49,138,154,89,65,149,58 
1320 DATA Y 


1325 DATA 147,135.36,89,154,36,17,281 
1338 DATA F 

1335 DATA 32,32,96,96,224,224,32,32 
1348 DATA 0 
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1345 DATA 48,48,128,59,59,62,88,248 
1350 DATA 8 

1355 DATA 268,240,168:224,64,192,128,1 
28 

1368 DATA / 

1365 DATA 8,127,127,127,127,127,127,12 

7 

1378 DATA . 

1375 DATA 8,254,254,254,254,254,254,25 

4 

1368 DATA - 

1335 DATA 8,255,255,255,255, 255 , 255,25 

5 

1398 DATA + 

1395 DATA 255,255,255,255, 255 , 256 , 255 , 
255 

i486 DATA ? 

1485 DATA 8,15,15,15,15,15,15,15 

1416 DATA ; 

1415 DATA 224,224,288,288,i?6 f 176,96,i 

12 

1428 DATA Z 

1425 DATA 255,129,185,165,165,185,129, 
255 

1438 DATA X 

1435 DATA 38,152,129,98,98,129,23,1 
1448 DATA K 

1445 DATA 238,236,248,252,238,238,8,0 

1450 DATA B 

1455 DATA 8,124,6,125,238,127,8,8 
1468 DATA N 

1465 DATA 8,252,238,238,238,233,9,1 
1470 DATA 6 

1475 DATA 8,127,238,238,126,6,238,124 

1488 DATA V 

1486 DATA 153,36,86,153,153,66,36,153 
1438 RETURN 

RUTH'S LOGO 
FROM LAST MONTH 

TO PRINTOUT 

PRINT (TYPE THE TITLE] 

HAKE "TITLE RL 
SETMRITE "P: 

PR ‘.TITLE 
PR Cl 

SETMRITE n 

PRINT (TYPE YOUR NAHE AMD THE DATE! 
HAKE "HAHE RL 
SETMRITE "P: 

PR .-NAHE 
PR □ 

SETMRITE O 

PRINT [TYPE THE NAME OF THE PROCEDURE] 

HAKE "PRO RL 
SETMRITE "P; 

PO :PRO 
SETMRITE £] 

END 






; ROWS AND COLUMNS 
: 7-85 

; 5, OCKERS 

BYTE x,y,row,col,st3rtx,starty,cnt 
BYTE maxx,maxy,movflg,modeflg,errflg 
BYTE ARRAY strs(88883,buff(183,blnks(4 
1 ) 

TYPE REAUCCARD rl,r2,r33 

; A few routines from REAL.ACT 
; on the Programmers aid disk 

REAL Fr8~$D4, Fri-$£8 
BYTE ARRAY LBuff=$588 
CARD InBuff-$F3 
BYTE CiX-$F2 

PROC R0M_AFP-$D888(3 
PROC RQM_FA5C-$D8£6 O 
PROC 80MLFADD-$DA66(3 

OC RealAssignCREAL POINTER a,b3 
b.ri-a.ri b,r2-a.r2 b.r3=a.r3 

RETURN 

PROC UalRCBYTE ARRAY S REAL POINTER r3 
)YTE i 

FOR i-i to 5(83 DO 
LBuffCi-13 ~S Ci3 
OD 

LBuff(i-I)=8 InBuff^LBuff CiX=8 
ROHLAFPO ReaIAssign(Fr8,r3 
RETURN 

PROC StrRfREAL POINTER r BYTE ARRAY S3 
BYTE i,C 

BYTE POINTER ptr 

RealAssign(r,Fr83 RQK_FA5CC3 ptr^LBu 
ff 

WHILE ptr A =-8 DO 
ptrr=+I 
OD 
i-8 
DO 

C-ptr(i) i--+1 sCi3-cJt$7F 
UNTIL C&$88 
OD 

S(83 = i 
'TURN 


PROC RealAdd(REAL POINTER a,b,c) 
RealAssign(a,Fr83 RealAssign(b,Fri) 
RGHLFADDO RealAssign(Fr8,c3 
RETURN 

PROC InitC3 j Fill array with _ cells 

CARD pos,Size 

Setblock(blnks,41,1683 blnks(83-48 
size-8888 SetBlock (strs,size,953 pos~s 
trs 

WHILE pos<strs*size DO 
Poke(pos,93 pos==+i8 
OD 

startx=8 starty-8 maxx-8 maxy=8 
x^startx y^starty Open(i,"K:",4,83 
nodeflg=8 Put(1253 errflg=8 
RETURN 

PROC Blnkline(3 jlnverse blank line 
Positions,83 Print(blnks3 
Position(8,83 
RETURN 

CARD FUNC 5tringp0S(3 ;Find position 
CARD pos ;of cell in strs array 
P05-i68*y+I8*X 
RETURN Cpos) 

PROC RowcolO ;Which screen position? 
row=2*(y-starty3+3 col=ie*(x-startx) 
RETURN 

PROC PrtstringO ;Put cell on screen 
CARD loc 

Ioc=strs+5tringpos(3 RowcolO 
Position(col,row) Print(Ioc) 

RETURN 

PROC FillscrO ;Fi!l screen with cells 

BYTE savx,savy,nbr 
CARD loc 

BlnklineO savx^x savy^y 

IF modeflg=8 THEN Print("Row £ntry"3 

ELSE Print("Column Entry"! 

FI 

savx^x savy=y 

FOR y=starty TO starty+18 DO 
IF y>49 THEN EXIT FI 
FOR x=startx TO startx+3 DO 
IF X>15 THEN EXIT FI 
PrtstringO 


OD 

y=l nbr^startx+i 

FOR X=5 TO 35 STEP 18 DO 

Positions,y) PrintB(nbr3 Print(" "3 

nbr~+i 

OD 

x^savx y^savy PrtstringO 
RETURN 

PROC PrevrowO ,*Hove to previous row 
IF y>8 THEN ;if not at first 

IF y<starty THEN ,• screen may move 
starty^y movflg-l 
FI 
FI 

RETURN 

PROC NxtrowO ;Wove to next row 
IF y<49 THEN 
y~+l 

IF y-starty>18 THEN 
starty-=+i movflg^l 
FI 
FI 

RETURN 

PROC PrevcolO jHove to previous colum 
n 

IF x>8 THEN 

X--“l 

IF x<startx THEN 
startx^x movflgrl 
FI 
FI 

RETURN 

PROC NxtcolO ;Hove to next column 
IF x<15 THEN 
X--+1 

IF (x-startx3>3 THEN 
startx==+i movflg^i 
FI 
FI 

RETURN 

PROC FillbuffO ;Put cell in buffer 
CARD POS 

Pos=strs+stringpos(3 
HoveBlOCk(buff,pos,183 
RETURN 


OD 


PROC InvbuffO ;lnvert all characters 



BYTE i 

FOR i=l TO 3 BO 
buff(i3 ==! 128 


TF y>Maxy THEN waxy-y FI 
RETURN 


RETURN 


PROC Pause (CARD cnt3 ;Belay for nessay 


OB 

RETURN 

PROC ShftbuffO ;One space left 
BYTE i 

FOR i=i TO Buff(8) BO 
buff £18-i)=feUff(buff(83+l~i) 

OB 

FOR i-1 TO 8-buff(03 BO 

buff(i3-32 ;Pad with blanks 
OB 

buff(03-9 ;Make it full size 

RETURN 

PROC AdditO jlnsert buff in strs 
GARB PCS 

pos=strs+StringposO 
HoveBlockCpos^buff,183 
RETURN 

PROC Shiftin(BYTE Chr3 jAdd chr to buf 
f 

BYTE i 

FOR 1=1 TO 8 BO 
buffCi3=bUff(i+I) 

OB 

buff(?)=chr jcones in froM right 
RETURN 

PROC MakedolCBYTE cnt3 ;Put in dollars 


PROC Col add(3 ;Add up a column 
REAL sum, addend 
BYTE savx,savy 
BYTE ARRAY zero 
zere="9 ,? 
savx=x savy=y 
FOR y=9 TO waxy bo 
V alR(zero,5UM3 
FOR x —0 TO Maxx BO 
ValRCzero,addend3 
Fi 11 buff (3 
IF buff(13=188 THEN 

StrR (sum, buff) ShftbuffO 
H3kedoI(buff (03 3 
InvbUff(3 buff(13 =188 AdditO 
ELSEIF buff(13=222 THEN 
ELSE 

ValRCbuff,addend) 

Real Add (sum, addend, sum) 

FI 

OB 

OB 

x=savx y=savy 
RETURN 

PROC RowaddC) ;Add Up 3 row 

REAL sum, addend 

BYTE savx,savy 

BYTE ARRAY zero 

zero="8" 


BYTE i 

i=0 BO i==+l 

IF buff(i)=46 THEN EXIT FI 
UNTIL i=cnt+I 
OB 

IF i=cnt*l THEN 

5hiftin(463 5hiftin£483 Shifting 
83 

ELSEIF i=cnt THEN 
Shiftin(483 5hiftinC48) 

ELSEIF i=cnt-l THEN 
5hiftin(48) 

FI 

RETURN 

PROC Entrchr(BYTE chr) ;Put character 
BYTE i i into buffer and display 

Shiftin(chr) Positioned,row) 
PrintCbuff) cnt==+i 
IF x>Maxx THEN Maxx=x FI 


savx=x savy=y 
FOR x=S TO M 3 xx BO 
UalR(zero,suM3 
FOR y=8 TO waxy BO 
ValRCzero,addend) 

Fillbuff£3 

IF buff(13 =222 THEN 

StrR(SUM,bUff) ShftbuffO 
Hakedol (buff(83 3 
InvbUffO buff(13 =222 AdditO 
ELSEIF buff(13 =188 THEN 
buf f £13 =168 InvbUf fO 
ValRCbuff,addend) 

Real Add (sum, addend, sum) 

ELSE 

ValRCbuff,addend) 

RealAdd( sum, addend, sum? 

FI 

OB 

OB 

x=savx y=savy 


e 

CARB i 
BYTE t 

FOR i=I to cnt BO t==#t OB 


RETURN 


PROC DiskerrCBYTE errcode? ;Error trap 


8ink I ire (3 
IT errcode=179 THEN 

Print ("No file of that p.aMe") 

ELSEIF errcode=I38 THEN 
Print ("Check disk drive") 

ELSEIF errcode=i38 THEN 

Print ("Specify ‘B; ! in filena-Me") 
ELSEIF errcode=165 THEN 
Print ("Bad filenaMe") 

ELSE PrintBCerrcode) 

FI 

Pause (188883 
errflg=i CloseC23 
RETURN 

PROC Loadsave(BYTE Mode) ;Bisk I/O 
BYTE i 

CAR!) start,pos,teaperr 
BYTE ARRAY filenM(38) 

BYTE ARRAY teMP(162) 
t8Mperr=Error Error=Biskerr 
teMp(8)=168 start=teMp*i 
Blokline(3 

Pr int("FiIenamel") Inputsc f i lenm) 
0penC2,filenM,MOde,83 
IF errflg=i THEN errflg=8 RETURN FI 
IF MOde=4 THEN 

Maxx=lnputBB (23 inaxy=InputBB (23 
ELSEIF MOde=8 THEN 

PrintBBE£2,Maxx3 PrintBBE(2,Maxy? 
FI 

FOR izd TO M3Xy BO 
PO5=strs+(160*i3 
IF MOde=4 THEN 
InputSB£2,teMp) 

Hcveblock(pos,start,1683 
ELSEIF MOde=8 THEN 

ffoveblock(start, pos, 1683 
PrintBE £2,te»p) 

FI 

OB 

Close(23 Error=teMperr 
RETURN 




PROC Prterr(BYTE errcode) ;Error trap 
31 rR 1ine (3 
IF errcode=I38 THEM 
PrintC'Theck Printer") 

ELSE PrintB(errcode3 
FI 

Pause(18888) 
errflg-i Close(2) 

RETUSM 

PROC PrntC) ;Put it out to printer 
BYTE twopage,columns,*savex,savey 
BYTE ARRAY col»srC8 1224567 
4455667 71 

BYTE ARRAY spcingde 6542218 
2 2 2 2 1 1 8 83 

BYTE ARRAY bInk5-£1 22 22 22 22 22 
22 32 323 
CARD tewperr 
te»perr=Error 
Error^Prterr 
savex^x savey^y 

**axx<8 THEM twopage=8 
ELSE twepage^l 
FI 

coluans-colasCwaxxi 
blnks (8)^spring(«axx) 

Ti(3/*P:"_.8.83 

~ errflgn THEM errflg-8 RETURN FI 
FOR y=8 TO aaxy DO 
FOR x=8 to columns DO 

FillbuffO IF buffC1)>12S THEM 

Invbuff(3 buff(13-32 

FI 

PrintD(3,buff) 

PrintD(3 i blnks) 

GD 

PutD (3,123 

OD 

IF t^page-l THEM 
PutD(3_« 133 PutD(3 J 133 PutD(3 ; 133 
FOR y=8 TO »axy DO 

FOR x=colU!4ns+l TO i*axx DO 

FillbuffO IF buff (13 >128 THEM 

InvbuffC3 buff(13-32 


PrlntD (3j,buf f3 
PrintD(3,blnks) 
OD 

PutD(3,133 
jO 


PutD(2,133 PutD(3,133 Put0(3,i3) 

FI 

Close(33 
x^savex y-s3vey 
RETURN 

PROC SelectO ;Kenu choices 

BYTE chr,ca5esave 

Position(8j83 C3sesave=peek(782) 

Poke (782,643 

Print ("gale Srint gave ioad £ode (aEfg") 

DO chr-6etD(l3 
IF chr=67 THEM 
Col add (3 RowaddO 
EXIT 

ELSEIF chr=88 THEM 
PrntO EXIT 
ELSEIF Chr=76 THEM 
Loadsave(4) EXIT 
ELSEIF Chr-83 THEM 
Loadsave(83 EXIT 
ELSEIF Chr=77 THEM 

IF »odeflg-8 THEM aodeflgri 
ELSE MOdeflg=8 
FI EXIT 
FI 

UNTIL chr=27 
OD 

FillscrO PrtstringO Poke(782,casesav 
e) 

RETURN 
PROC HainO 

BYTE nflg.chr^ijcurflg^conkey 

CARD pos 

Inito Fillscr(3 

DO 

nflg=8 cr.t=l buff(83=S curflg=8 
«ovflg=8 FillbuffO 
Positioned,row3 Print(buff) 

FOR i= 1 TO 3 DO 
buffCi3-32 OD 
DO Chr=GetD(13 

IF chr=27 THEM Select!) 

ELSEIF chr=126 THEM 
IF cnt)l THEM 
FOR i=8 TO 7 DO 

buff(?-i)-bUff(8-i) 

OD 

buff(13-32 Positionccol.rotf) 
Print(buff) cnt=--l 
FI 

ELSEIF Chr-42 THEM 
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IF nodeflg=8 THEM feuffCDrga 
ELSE buff(13-84 
FI 

IF X>W3XX THEM ttdXX-X FI 
IF y>«axy THEM »axy-y FI 
Invbuff(3 AdditO PrtstringO 
EXIT 

ELSEIF chr-28 THEM 
curflg^l PrevronO EXIT 
ELSEIF chr=2? THEM 

curflgn NxtrowO EXIT 
ELSEIF Chr-38 THEM 
curfig-i PrevcolO EXIT 
ELSEIF Chrr3i THEM 

curflgrl Mxtcol(3 EXIT 
ELSEIF chr=S8 THEM 
x=8 startx=8 curflg^l 
FillscrO EXIT 
ELSEIF Chr=62 THEM 
x=»axx startx=Maxx-3 curflg^l 
FillscrO EXIT 
ELSEIF Chr-94 THEM 
y=8 starty^e curflg-i 
FillscrO EXIT 

ELSEIF cnt<18 AMD (Chr>47 AMD Chr< 
58 OR 

Chr=45 OR chr-46) THEM 
IF cnt=l then nflg=i 
FI 

Entrchr(chr) 

ELSEIF cnt<18 AMD nflg=8 AND 

(Chr>31 AND Chr<123) THEM 
Entrchr(chr) 

FI 

UNTIL ChF-155 

OD 

IF cnt>l AMD curflg=8 THEM 

If nflgri them Hakedol(buff(833 FI 

AdditO IF MOdef lg=8 THEM Mxtcol (3 

ELSE NxtrovO 
FI 

ELSEIF curfIg-8 THEM 

IF s*odeflg=8 THEM Mxtcol () 

ELSE MxtrowO 
FI 

FI 

IF wovflg-i THEM 
FillscrO 

ELSE 

PrtstringO 

FI 

OD 

RETURN 



1 REM KX#XH*HXH#XI(#KXMHX* # KH##ifKKKKXX 


2 REM* K A N G A * 

3 REM * by ALLAN KNGPP * 

4 REM * - * 


5 REM * PAGE 6 MAGAZINE - ENGLAND * 

6 REM 


7 REM 

199 GOSUB 1895 

185 GOSUB 1135:GOSUB 965 

118 PONE 718,36:PQK£ 788,38:P0KE 789,5 

6 

115 Z-12:60T0 128 
128 REM 
125 REM EfSflE 
138 RESTORE 465 

135 DIM M8$(6),M1$(6),M2$(6),M3$(6),C$ 
(32) 

148 DIM PMHGV$(188),Pe$(38),Pi$C38),P2 
$(38),P3$(38),Pf$(38), MI5M0V$ (114):MOV 
E-ADR(PMSftVf):POR K=1 TO 188;READ N 
145 PMHGV$(X)-CHR$(N) :N£X! X 

158 rem f f r»T»gfiyr«iM«>CTin 

155 FOR X~i TO 12:READ N:P8$(X)=CHR$(N 
):NEXT X 

168 FOR X=i TO 12‘.READ N:Pi$(X)-CHR$(N 
):NEXT X 

165 FOR X-l TO 12;READ N:P2$(X)=CHR$(N 
):N£XT X 

178 FOR X~1 TO 2:READ N:P3$(X)=CXR$(N) 

:NEXT X 

175 FOR X-l TO 12:READ N:PF$CX)=CHR$(N 
):NEXT X 

188 PMBASE-INT((PEEK(145)+3)/4)*4:PONE 
54279,PHBA5E:REM 
185 PMB-PMBA5E*256 
198 PMR-ADR(P8$) 

195 PML=ADR(P1$) 

298 PI«=ADR(P2$) 

285 PMS-ADR (P3$) :REM aillT-W-l-liM-i 
218 PMF=ADR(PF$) 

215 PONE 559,46:P0NE 53277,3: REM HUM 

\m 

228 PONE 784,14:P0KE 787,2:P0NE 623,1 

225 G0SU8 665:TRAP 668 

238 REM 

235 605UB 965 

248 PONE 711,56;GOTO 738 

245 L=3:5C=1:CC=246:G05UB 835 


258 N=8:TIM=988 

255 SOUND 2,248,18,2:SOUND 3,243,18,2 
268 POSITION 8,2:? tt6:" f»BI»ir »;SC:POSIT 
ion 8,4:? nerfEOHl" 

265 X=180:Y=94:PHM=PMD:6Q5UB 458 
278 REM 

275 POSITION 5,22:FOR R=1 TO L:? B6;"f 
:N£XT RlPONE 53278,1 


288 POSITION 5,23:F0R R=1 TO L;? S6;"q 
**;: NEXT R 


IE6P STICK! 


298 S=5TICN(0) 

295 TIM=TIM-2;POSITION 1,5:? »5;TIM;" 
“:IF TIM<8 THEN GOTO 545 
388 IF PEEK(53279)=3 THEN GOSUB 815;GO 
TO 738 

385 IF S=ii THEN X-X-4:PMM=PML:IF K<48 
THEN X=48;GOSUB 458 

318 IF 5-14 THEN Y=Y-2;X=X+2;PMMrPMD:I 
F X>192 THEN X=192:GOSUB 458 
315 IF 5-7 THEN X-X+4:PMM^PMR;IF X>192 
THEN X-192:GOSUB 450 
328 IF 5-13 THEN Y-Y+2:X-X~2:PMM-PMF;I 
F X<48 THEN X-48:GOSUB 458 
325 IF X<48 THEN X=48 
338 IF X>288 THEN X=288 
335 6X-(X~48)78:GY-(Y~16) fA :IF GY>28 T 
HEN GY-28 

348 IF Y>94 THEN Y-94 

345 PONE 711,Z:PONE 77,8 

358 LOCATE GX+i,GY+2,C:L0CATE GK,GY+1, 

D:LOCATE GX,GY+2,E 

355 CC=CC+i:IF CC>249 THEN CCr246 

368 COLOR CClPLOT 13,12 

365 IF D-258 THEN GOTO 865 

378 IF D>33 OR D<48 THEN Y~Y-2:GG5U8 4 

58IY-Y+2;GOSUB 458 

375 IF D>58 AND D<62 THEN Y=Y+4:XrX+2; 
GOSUB 458 

388 IF D>48 THEN Y-Y+2:GOSUB 458 

385 IF D<33 AND £<33 THEN GOSUB 515 

398 IF D<33 THEN GOSUB 515 

395 IF E<33 THEN GOSUB 515 

498 IF C<33 THEN GOSUB 515 

485 IF D>246 AND D<249 THEN GOSUB 825 

418 IF D=98 AND N-i THEN TIM=TIM+188:G 

OTO 738 

415 IF Y<28 THEN Y=28 

428 IF RND(8)>8.99 THEN GOSUB 968 

425 Z-Z+16;IF Z>255 THEN Z-12 

438 CC-CC+1:IF CC>249 THEN CC=246 

435 COLOR CC:PLOT 13,12 

448 MSL-MSL+l:IF MSL>18 THEN GOSUB 558 


445 GOTO 285 

458 A=USR(MOVE,8,PMB,PMM,X,Y,ll):A=U5R 
(MOVE,3,PMB,PMS,X+2,Y+9,2) 

455 FOR M=38 TO 88 STEP 18:SOUND l,M,i 
8,18:NEXT M:SOUND 1,9,8,8:RETURN 


|P. M. MOVE DATi 


465 DATA 216,184,184,184,133,213,184,2 
4,185,2,133,286,184,133,285,184,133,28 
4,184,133,203,184,184,133,288 
478 DATA 184,104,133,209,184,104,24,18 


1,289,133,287,166,213,248,16,165,2@L _ 

4,105,128,133,295,165,286,185 

475 DATA 8,133,286,282,288,248,168,8,1 

62,8,196,209,144,19,196,287,176,15,132 

,212,138,168,177,283,164 

488 DATA 212,145,285,232,169,8,248,4,1 

69,8,145,285,280,192,128,286,224,166,2 

13,165,288,157,8,288,96 

485 REM 

498 DATA 4,6,7,4,12,38,156,124,16,31,0 
1 8 

495 DATA 32,96,224,32,48,129,59,62,3,2 

48,8,8 

588 DATA 12,14,3,13,38,28,28,61 r 38,36 5 
64,128 

585 DATA 62,124 

5i8 DATA 24,56,8,24,28,53,38,28,22,36, 
72,9 

515 POKE 623,4IFOR Y=Y TO 188;SOUND 8, 
Y,19,18;Y=Y+8,5:G05UB 459;50UND 8,8,0, 
8:NEXT Y 

528 L-L-i:IF L<1 THEN GOTO 545 

525 POSITION 5,22;? 86;" ";P35I 

TION 5,23:? #6;" 

538 POSITION 5,22;FOR R~i TO U? N 
";:N£XT R:PONE 53278,1 — 

535 POSITION 5, 23; FOR R-i TO L ; ? U6; 1! q 
;NEXT R 

54@ X-188:¥-98;POKE 623,1:RETURN 
545 TIM^8:GOSUB 815:GOTO 736 


[SHOOT HISSlE 


555 PONE 53257,8IP0NE 53278,1 

568 XMP-XHP+1;ON KMP GOSUB 628,625,629 

,635,648,645,658,655 

565 FOR XH=XM TO 225 STEP 185GOSUB 578 
;NEXT XH:M5L-8;SOUND 1,8,8,0;RETURN 
578 A=U5R(MISL,1,PMB,ADR(Ml$),XM,YM,6) 
:50UMD 1,XM/8,18,14;IF PEEK(53257)<>1 
THEN RETURN 

575 SOUND 1,8,6,8:A-USR(MISL,1,PMB,ADR 
(Mi$),225,YM,6) 

588 FOR k®=l TO 5:FOR MH=8 TO 4;SOUND 
8,12,58,18;A-USR(MOVE,6,PMB,PMM,188,94 
,11):ON PM GOSUB 688,685,618,615 
585 FOR WO-i TO 3:FOR M-d TO 4;SOUND 
9,12,58,18:A=USR(MOVE,8,PMB,PMM,X,Y,11 
3:Off Pm GOSUB 688,685,618,615 
598 REM 

595 NEXT MM;SOUND 8,8,8,8;NEXT MD:POKE 
53257,8;P0KE 53278,1;GOSUB 528:G0T0 2 
35 

688 PMM=PI«R: RETURN 
685 PMMtPMD:RETURN 
618 PMM^PMR;RETURN 
615 PMM-PMF;RETURN 
628 XM-56:YM=88:RETURN 




KANGA CON'T 


625 XH=64:YH=88:RETURN 
658 XH=72:YH=72:RETURN 
5 XH=88IYH=64:RETURN 
-„48 XH=88IYH=56:RETURN 
645 XH=96;YH=481 RETURN 
658 XH=184:YM=48:RETURN 
655 XH=112 : YH=52:XHP=8:RETURN 
668 TRAP 48888;POKE 55257,8;POKE 55278 
,i:GOTQ 285 
665 REH 

678 RESTORE 655 

675 HI5L-ADRCHISKOy$3;F0R X=i TO 114;R 
EAR N;MI5MQV$(X)=CHR$(M3;NEXT X 
688 REH 

685 FOR 1=1 TO 6; READ N:H1$(I3=CHR$CN) 
:NEXT I 

658 POKE 785,156;POKE 55268,12 

655 DATA 216,184,184,184,155,215,184,1 

55.286.184.24.185.128.155.285.165.286, 
185,1,155,286,184,155,284,184 

788 DATA 155,285,184,184,155,288,184,1 

84.155.285.184.184.24.181.285.155.287, 
168,8,162,8,154,212,165,252 

785 DATA 166,215,248,7,18,18,5,5,282,2 
88,245,166,212,45,285,145,285,156,285, 
144,58,156,287,176,26 

" &ATA 132,212,158,168,177,285,164,2 
_ -48,5,18,18,156,288,251,164,212,17, 
285,145,285,252,165,8,248 
715 DATA 8,288,152,128,288,156,166,215 
,165,288,157,4,288,56 
728 DATA 8,8,5,8,8,8 
RETURN 
GOSUB 565 

755 POSITION 8,2;? 86;“scope 0 

748 POSITION 8,5;? 86;STIH 

745 IF STIH>H5C THEN H5C=5TIH 

758 POSITION 8,5;? 86;"HI ":POSITION 8 

,6;? 86;HSC 

755 POSITION 4,21;? 86; 

768 SOUND 8,248,18,18;SOUND 1,245,18,1 
8 

765 CC=246 

778 CC=CC+I:IF CC>245 THEN CC=246 
775 COLOR CC:PLOT 15,12 
788 FOR H=i TO 18;NEXT H 
785 Z=Z+16;IF Z>255 THEN Z=I2 
758 POKE 711,Z 

755 IF PEEK(55275)06 THEN 778 
898 POKE 718,56;POKE ?88,58;STIH=8 
885 SOUND 8,8,8,8:S0UND 1,8,8,8 
818 GOSUB 815:GOSUB 565;POKE 625,1;GOT 
0 245 

815 FOR H=8 TO 15;COLOR 52;PLOT H,8;DR 

AMTO H, 25;NEXT H:RETURN 

828 FOR H=1 TO 5;SOUN0 i,H*18,18,18:NE 


XT H:SOUND 1,0,8,0:K=1:RETURN 

825 ON SC G05UB 848,848,845,858,855,84 

5 

858 FOR 1*84=1 TO 5; FOR M=i TO 15; SOUND 
i,*8*2,18,18;NEXT M;NEKT HH:RETURN 
855 POSITION 6,17;? 86;"$+ 1 ";POSITION 
6,18;? 86;")+(":RETURN 
848 POSITION 12,8:? 86;"$+'":POSITION 
12,5;? 86;")+(":RETURN 
845 POSITION 11,5:? 86;"$+ *":POSITION 
11,6;? 86;")+(":RETURN 
858 POSITION 7,18:? 86;"C fr':POSITION 
7,11:? 86;»0 ?":P05ITI0N 6,17:? 86;** 

$+*":POSITION 6,18:? 86;")+(" 

855 POSITION 11,5:? 86;"$+ 1 ":POSITION 
11,6;? 86;") + (»;RETURN 
868 GOSUB 815:GOSUB 565:G0SUB 518:P0SI 
TION 6,25:? 86:GOSUB 555:G0T 
0 755 

865 SC=5C+1:0N SC GOSUB 875,888,885,85 

8,855,588,585:5TIH=5TIH+TIH:L=L+1:TIH= 

TIH+758:GOSUB 815:GOSUB 565 

878 FOR 5=158 TO 1 STEP -2:50UND 1,5,1 

8,18:NEXT S:GOTO 268 

875 REH 

888 POKE 718,54:POKE 788,56:RETURN 
885 POKE 718,182:POKE 788,184:RETURN 
858 POKE 718,152:POKE 788,154:RETURN 
855 POKE 718,164SPOKE 788,166:RETURN 
588 POKE 718,228SPOKE 788,252:RETURN 
585 GOTO 868 
518 REH KflHTig 

515 RESTORE 528:FOR 5=1 TO 54:READ T:5 
OUND 2,T,18,8:F0R W=i TO 18:NEXT H:NEX 
T S:RETURN 

528 DATA 121,121,56,121,121,162,121,12 
1,56,121,121,162,121,121,188 
525 DATA 56,188,121,128,128,121,188,12 
8,162,121,121,56,121,121,162 
558 DATA 121,121,56,121,121,162,121,18 
8,56,188,188,56,121,121,121,121,121,12 
1,8,8,8,8,8,8 

555 SOUND 1,255,14,14:SOUND 2,258,14,1 
4:SOUND 5,251,14,18:SOUND 8,228,14,14 
549 RESTORE 558;FOR 1=1 TO 52;READ C;C 
$ (I)=CHR$(C);NEXT I:C$(15,15)=CHR$(22) 

:X=USR(ADR(C$3,18) 

945 FOR 5=8 TO 5:SOUND 5,8,8,8;NEXT 5 

958 DATA 184,184,184,72,162,57,160,8,1 

75,8,218,181,20,141,22,208,141,18,212, 

156,288,242,282,288,257,184 

955 DATA 56,255,1,288,228,96 

968 XHP=RND(83*6;GOSUB 550:RETURN 

965 reh aE33MM3BMaM2 

978 P OSITION 8,8:? 86;"fEglETC ; g 

32X3" 


975 POSITION 8,1;? 86;" <SZZ£BD 

52333” 

988 POSITION 8,2:? 86;“ 

3X333” 

985 POSITION 8,5:? 86;" <=30113 

998 POSITION 0,4;? 86,*" ;>«+++++; 

&++■" 

595 POSITION 8,5;? 86;** 08*7/7/0 

&++(" 

1888 POSITION 8,6:? 86;" ;>!+( 

) */e" 

1885 POSITION 8,7:? 86;" <=8*88+++ 

++(» 

1818 POSITION 8,8:? 86;" ;>! + { ?/// 

7/0" 

1815 POSITION 8,9:? 86;" 08*8" 

1828 POSITION 8,18:? 86;" ;>«+++++++ 

+++++++» 

1825 POSITION 8,11:? 86,*" 08*////// 

////$+"* 

1058 POSITION 8,12:? 86;» ;>! + ( 

9 ) + (» 

1855 POSITION 8,15:? 86;" <=8*0*+++++ 

+ : £+* 8 " 

1048 POSITION 8,14:? 86;" ;>! + ( )*//// 
70 ) + {" 

1845 POSITION 8,15;? 86;" <=8*0*+( 
*+‘ 0 " 

1858 POSITION 8,16:? 86;";>*+( )++++++ 
++++(» 

1855 POSITION 8,17;? 86;"<=8'0 /////// 
77/70" 

1868 POSITION 8,18:? 86; **>! + (" 

1865 POSITION 8,15;? 86;"=8++**++++*++ 
+++++**» 

1878 POSITION 8,28:? 86;"!+*////////// 
777$++C» 

1875 POSITION 8,21:? 86;"8+( 

3 + , 0 " 

1888 POSITION 8,22:? 86;"778 
*++( " 

1085 POSITION 8,25:? 86;» 

?// 0 " 

1898 RETURN 

1095 GRAPHICS 2:POKE 711,42:POKE 788,5 
6:POKE 718,8:POKE 789,18:P0KE 752,1 
1188 POSITION 7,5:? 86:»fSEfiE!3» 

1185 POSITION 5,5:? 86;"BY":POSITION 4 
,6;? 86;"ALLAN KNOPP" 

1110 ? "PRESS SeUUu to BEGIN 

SQQ0QC1 TO RESTART DURING 

GAHE" 

1115 IF PEEK (55279) 06 THEN 1115 

1128 POSITION 2,1:? 86;"back in a moM e 

nt” 
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OBSERVATIONS ON 
PAPER CLIP 

This new word processor has a number of features not found on 
any other ATARI word processor. It is not all peaches and cream, but 
PAPER CLIP offers some unique options. 

PAPER CLIP'S ability to preview the text before it is printed is 
unsurpassed. However, there are several other features worthy of note. 
For example, there are USER DEFINED printer codes, specialized 
"Macro” Files and Koala Graphic capabilities as well as the ability to 
configure the program for virtually any printer available. 

I found a few shortcomings in the program which may influence 
some prospective buyers. In my estimation, the most serious drawback 
is that the text buffer will not accept key input fast enough to keep up 
with a very fast typist. I found the key response to be somewhat sluggish. 
Typing at 50 words a minute will cause the buffer to "bubble over” and 
drop some characters. For most of us slow typists this will never be a 
problem. However, to a serious or professional typist this handicap will 
automatically eliminate PAPER CLIP from contention. 

Another disadvantage is that in spite of 155 pages of 
documentation, I had to read between the lines of the Documentation 
to specifically adapt the program to my FX-80 Printer. Through 
experimentation, I have learned a few undocumented or sparsely 
documented short cuts and/or further enhancements which I will pass 
along. 

It is possible to configure the program to take advantage of the 
Epson's ability to use proportional type. The procedure is to binary load 
from DOS the "PRTR.COM" file and then, following the instructions, load 
in the configuration file for the specified printer. In my case I loaded in 
the "FX80ALT.CNF" file. By going through this file I was able to see what 
DEFAULT values were placed in the file for the various options and printer 
codes and then record them for future reference and/or possible 
alteration. There is no record of specific printer code values anywhere 
in the documentation. The configuration files alone access this 
information. On the program disk I found that the 4 USER DEFINED 
PRINT CODES were predefined to contain the Graphic Dump Codes for 
the FX80. I redefined these codes to contain the Proportional and 
Enlarged ON and OFF codes — and then saved the altered file to another 
Epson configuration file name of my own. 

Further checking the printer configuration file will reveal information 
about micro spacing and optional pitch fonts which are otherwise not 
specifically mentioned. 

Another discovery was that double column printing will not work 
correctly unless the formatting line (pitch, margin, etc.) is exactly at the 
beginning of the text. In other words, set the margins as per instructions 
but don't put a carriage return at any point between the format line and 
the beginning of text. If you do, the right column will print first and always 
be one line above the left column. If you are used to other word 
prosessers in which the formatting line stands alone and is terminated 
by a RETURN, this is hard to remember. However if you are careful you 
will be rewarded with a very fine looking double-column printout. 

In writing this review I also found that I could not (while in double 
column mode) "place" a paragraph symbol at the end of the format line 
where the text needed to start. I could do this if the text were justified 
left on the screen — but not at the end of the format line. Since I needed 
paragraph indentation, the solution was to leave 5 spaces at the end 
of the format line before beginning to enter text. 

The manual suggests that a CONTROL-SHIFT-DELETE followed by 
a RETURN will empty the paste buffer. This is not so! Instead, move the 
curser to a blank line and follow the CONTROL-SHIFT-DELETE with a 
SHIFT-DELETE. This will effectively empty the paste buffer. 

Each screen line of PAPER CLIP is ended by a small diamond-shaped 
mark. This has proved extremely helpful as it serves as a pointer to the 
number of spaces between the last word on the line and the first word 
on the next. No longer do I end up with a few gaps here and there nor 
is it necessary to justify screen output periodically as with the other word 
processors I have used. This is a fine touch inspite of the fact that it 
is not documented. 

When moving a block of text with PAPER CLIP I thought at first 
that I had to clear out "room" — or else other text was overwritten. But 
this is not the case as long as I was not in the over-type mode rather 
than the insertion mode of text entry. In my early experiments my pastes 
were sometimes over-pastes. 


My original standard for Atari word processors has always been 
LETTER PERFECT It was sometimes cumbersome to use but has 
continued to be very flexible. Nevertheless I dropped it last year having 
grown tired of the incompatibility of LJK and ATARI files. 

When THE WRITER'S TOOL came out I used it exclusively. It wasn't 
totally flexible, but it was easy to use. The big drawback to this program 
was poor file merging capabilities. 

PAPER CLIP, in spite of some of my reservations, will be the word 
processor I will rely on - at least for the Atari 8-bit machine. It isn't THE 
Perfect Word Processor but what it can't do my others can and in my 
view PAPER CLIP is the best all-a-round word processor currently 
available for the ATARI. 

— Graham Smith 


COMPUTER 

QUARTERBACK 


COMPUTER QUARTERBACK ($40, SSL 1981, second edition, by 
DAN BUNTEN) has been around for a number of years, but this was my 
first introduction to it. Prior to this it was not available on the Atari. I 
have always been sceptical about games which try to duplicate situations 
which involve so much human interaction. In a game like football 
everything depends on each of the individual players' attributes and how 
they interact as a team in any given situation. To me those are too many 
variables to actively duplicate in a computer game, certainly a 48k one. 

COMPUTER QUARTERBACK is a pleasant surprise. The designer 
utilized his computer space primarily for the developement of the play 
variables. This has limited the amount of computer space for graphics. 
The graphics display is fairly simple. The primary screen shows a football 
field to the left with a football in the center. The football is the only 
graphics on the field, and shows where the current line is. On the edge 
of the field are two markers denoting first down and current ball position. 
To the right of this you have a score board which shows score, quarter, 
down, and time remaining. Above this you find the last play played. It 
is listed as the offensive play, defensive play, and results. Below the score 
board is a graphics representation of the two teams' current alignment 
expressed in traditional "X" and "O" configuration. This is the sum total 
of the game graphics. The only part which actively moves in a game is 
the ball marker on the playing field. I was surprised to find that these 
simple grahics in no way detracted from the game. 

The game allows you to play either another player or the computer. 
The play comes in two versions semipro and pro. The semipro version 
allows you 18 offensive plays and 14 defensive plays. The game comes 
with a sheet depicting the course of each play. The pro version allows 
you 36 offensive plays and 24 defensive plays. Each play is numbered 
and selected by moving the joystick or paddle until the desired play 
number appears next to your team. 

Part of the excitement in this game is that the offense must press 
the button three times on a specific play before that choice is activated. 
This means that both the offensive and defensive player are trying to 
adjust their lines up to the last minutes. Of course the more times you 
shift your line the greater the chance that your team will not get the 
signal and a penalty will be called. Players are allowed to call timeouts 
and at halftime the teams' statistics are shown. As this is a real time 
game players may choose the length of time of each quarter, the 
computer is set to play best with 10 minute quarters. In this game the 
players have also been given the option to create their own teams or 
send in for discs from SSI, which have stats for the major teams in 1980. 
When using the draft, player quality will effect all aspects of the game. 
The pro version also allows you to create a game film, if you have a 80 
column printer. This game film lists play by play down situations, yards 
to first down before play, absolute yard mark, play of both teams and 
headings for quarter and score. Basically I find this game a very fast 
paced game which leaves me with the real flavor of football, all you need 
is the roar of the crowd. 

— Nick Chrones 
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A Programmer 
Test Drives a 130XE 


Over four years ago I bought my first computer, an Atari 800 which 
came with a whopping 16k of RAM. It served me well, but this past 
winter it was starting to let me down. Imagine my joy when I heard that 
the highly touted new Atari 130XE computers were going to be available 
almost immediately at a price one sixth of my original computer. Better 
yet, they would have 128k of RAM and be completely compatible with 
existing Atari 8 bit machines. What choice did I have but to rush out 
and buy one? 

The first thing a former 800 owner notices when he brings home 
his 130XE is its size, or lack of it. It is tiny and feather light compared 
to the old 800! After using it, one discovers that it handles very much 
like an 800XL. This, of course, means one has to put up with booting 
up a translator for some software, and I have even come across some 
older programs that absolutely refuse to work no matter what. 

However, I think the new programs which will run only on this new 
machine will make those old ones pale in comparision, so this 
incompatibility will only be short lived. Besides, the idea of a modifiable 
operating system isn't all bad. For example, the Eugene, OR Translator 
includes an option for fast floating point routines, and with some of the 
mathematics programs I use, the difference is really noticeable. In fact, 

I suggest some talented machine language programmers to look into 
rewriting the printer driver portion of the OS so it can use a bank or two 
of the extra 130XE memory as a printer buffer. Then an application 
program could print to the printer as fast as memory transfer can take 
place, and while the user is doing something else, the printer driver can 
send the data out as the printer becomes ready for it, perhaps during 
VBI or by some other interupt mechanism. This type of multitasking could 
be a very saleable project, so how 'bout it you guys with the know how? 

The manual for the 130XE is quite good. It gives a description of 
all the BASIC commands, and includes several example programs much 
as the old BASIC reference manual did (only this manual touches on 
Player Missile graphics). The manual includes all kinds of technical 
information and pinout diagrams of the 130XE. It also explains how to 
access the extra memory banks. 

Perhaps the most noticeable physical feature for this programmer 
in changing to the 130XE was the different keyboard. It has a 'spongy' 
feel, but it grows on you. At first I didn't like it, but now I really do. Moving 
to it from an 800, I especially like the larger shift keys, and the moving 
of the inverse video key to the corner. A nice touch is having the graphics 
characters on the edge of the keys ala the old Commodore machines 
— this feature will likely save me a lot of time while programming using 
character graphics. 

The extra memory in the 130XE is the most useful and noticeable 
functional difference, and will no doubt become even more useful in the 
future. Already the RAMDISK of DOS 2.5 makes excellent use of it, but 
how about somebody coming out with a RAMDISK which will work with 
double density (are you listening OSS??) The RAMDISK also makes a 
disk based language like C much quicker and nicer to use. I have already 
seen an ad for BASIC XE which claims to use the extra memory to give 
the programmer a sizeable 60,000 bytes of programming space (I know 
of a BBS programmer who should be happy to hear that!). I forsee no 
end to the data bases, spread sheets, and word processors which all 
squeeze something out of the extra RAM. I wrote a sector copier on the 
130XE to copy a whole single density disk on a single pass, allowing 
easy multiple copies to be made. I think a few club librarians will be eager 
to try that out (it also does a double density disk in two passes). The 
extra memory is very easy to use from the programmer's standpoint. 

Another really nice feature an old 800 owner will notice is that the 
130XE, like the XLs has a true hardware reset key, which means you 
can recover from almost any crash without loss of program and temper. 
I have managed to lock the machine up several times when programming 
in ACTION!, and each time I was able to recover my program text. 
Additionally, the RAMDISK is also preserved through a reset. The net 
result of all this is that in many cases where with the old 800 I would 
have lost my work, with the 130XE I was safe. 

I have a couple of gripes, though. First of all, I'm still not too hot 
about the idea of the cartridge slot being hidden behind the machine. 
It would have been handier for it to be on the side. Also, the joystick 
ports are recessed deep into the machine, making my speech synthesizer 
not want to fit without heavy removal of plastic on the connectors. 
Finally, wouldn't it have been nicer if the BASIC would not be active 
UNLESS the Option button was held down? It seems I am always booting 
programs which squawk if the BASIC is present. Actually, it is an easy 
matter for programs to try to remove the BASIC first by altering the 
memory bank selection byte, and then they should squawk if a cartridge 
still appears to be present. For example, I did this in a sector copier for 
the 130XE that I wrote. 


Who will want to buy a 130XE? I think all those out there who have 
mastered their 800s and want a little more power will want to get one. 
When more programs come out which require the extra memory, those 
with XLs may also wish to consider upgrading. After all, the cost is not 
prohibitive. What about the argument that anyone buying a computer 
should get a 16 bit machine, specifically an ST? First of all, it is quite 
a bit more investment, and all your old software won't work. It further 
remains to be seen how the STs will catch on and what software will 
come out. So, unless you have lots of money and are prepared to start 
again from scratch, if you want a new computer you better stick with 
a 130XE. 

To sum up, although there are a few minor ouches, I have lots of 
praise for the 130XE. I heartily recommend that anyone with an old, ailing 
800 buy one. You won't be sorry. Incidentally, anyone out there interested 
in an old, faithful Atari 800. . .? 

— Dale Lutz 


ROWS AND COLUMNS 

Rows and Columns is a program to aid in producing financial 
reports in row and column format. It consists of an array of cells 16 
columns wide by 50 rows high. Each cell is 9 characters wide and can 
contain one of four types of data: 

1) Alphanumeric data - Used mainly to label rows or columns, it 
starts with a non-numeric character and its numeric value is zero. 

2) A number - Once you start to enter a number, you can enter 
nothing else. The number will be converted to dollars and cents format. 

3) A column sum - Sums show up in inverse characters on the screen 
along with an arrow (pointing up for columns). Sums are cumulative. If 
more than one appears, each contains the sum of all numbers above it 
(not including previous sums) 

4) A row sum - Row sums contain all number cells to the left of 
the sum cell. 

Mode of Entry 

There are two modes of entry; by rows and by columns. You can 
toggle between them by pressing ESC and then 'M' (for Mode). The mode 
of entry is indicated at the top of the screen. After a cell is filled the 
cursor will be positioned down one for column entry or to the right one 
cell for row entry. Pressing '*' will indicate you want a sum to occupy 
the present cell. If you are in row entry mode it will be a row sum, a 
column sum if in Column entry mode. 

Moving Around: You can move around the array of cells by using 
the arrow keys (CTRL arrow). The cell for entry is to the left of the cursor. 
The 'caret' key will move you to the top of the page; the 'lesser than' 
key all the way to the left side. The 'greater than' key positions you at 
the rightmost column containing an entry. 

Calculation: Sums are updated only when you specify to do so. To 
update the sums press ESC followed by 'C' (Calculate). Rows are 
summed first and then columns, leading to these two rules: 

1) No column sums are included in a row sum, (column sums are 
done second). 

2) Row sums are treated as normal numbers when doing column 
sums. 

Since one space of the sums is taken by the arrow, the highest value 
that can be summed is 99999.99. If you're doing tabulations where larger 
sums will appear you can probably afford to by a better program. 

Saving/Loading Data: Saving or loading is done by pressing ESC 
followed by a 'L' or 'C'. You will be prompted for a filename. Use the full 
filename (D:CASH.CAL). 

Printing: Use ESC followed by 'P' to print to a printer. 80 columns 
is assumed and if required, the printing will be split in two sets of columns 
separated by three blank lines. 

— Stan Ockers 
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SKYPLOT 

PLAN ATARI UM - ACE-tronomy Disk ' 

The best things in life are free, right? You doubt it? Look up, at the 
evening or morning sky. You can share Newton's and Galileo's wonder 
at the magnificent sky under which we live our lives, and enjoy scenes 
which have produced awe and delight in a thousand generations of 
humanity. 

But "You can't tell the players without a program". Now we have 
a program for you in the ACE Library. It's called Plan atari um. It will 
show you the sun, moon and planets as they can be seen from any place 
on earth this side of the Poles, for any time you desire, ranging from this 
evening to 2001, from your birth day (and time) to that of Caesar, Buddha 
or the U.S.A. 

See the moon and planets in the skies of Asia as Marco Polo saw 
them on the silk caravan route. Watch a solar eclipse as astronomers 
will see it from Mauna Kea, Hawaii in 1991. Or follow the sun around 
the sky until it sets ... in the North, then rises again an hour or two 
later, still in the North! 

Boot up with BASIC, and run Plan atari um. Follow the simple 
directions for adjusting your color screen, then look at the sample half¬ 
sky display of planets. . .at noon! 

Only on your Atari can you see the planets lined up in the full light 
of day, and watch the solar system flow, hour to hour, or year to year. 
Set the time to noon of any day, then let the program cycle a month at 
a time. Watch Venus as it moves around the sun in its orbit, while Mercury 
goes twice as fast in its much smaller path around our star. To watch 
Mercury circle the sun, set the cycle step to 10 days by pressing the 
"clear" (don't Shift) key. You will see the sun fixed in the (noon) sky while 
its two nearest satellites move around it in steps — and you watch, 
moving with its third satellite. 

Each planet is in the sky overhead once each day, but the time of 
day varies for each with its place in its own orbit. Saturn takes more 
than 100 times longer to complete one orbit than does Mercury. So 
Mercury, like Venus, moves rapidly across the sky night to night, then 
disappears into the glare of daylight. Saturn seems almost fixed in place 
like a star. It's in the night sky for almost six months. Then in the daylight 
half of our sky it's fixed for the next six months, almost like Orion or 
the Pleiades. 

It's interesting to explore the way the planets look to people in the 
southern hemisphere. You can 'go' to Tasmania (42 S,148 E) or the Straits 
of Magellan (53 S, 71 W) to watch the sun, moon and planets moving 
across the northern sky. Then you could cycle the display in latitude (hit 
+ then L, then "Insert" (no Shift!) once or twice), after picking a dawn 
sky full of planets in the east. Try this in late June and December, then 
in either March or September. 

This will demontrate the change of seasons as the sun moves from 
the winter to summer solstices, rising over the tropic of Cancer, then 
over the Equator, finally — six months later — over the tropic of 
Capricorn. Notice how short the day is in June when you are in 
Christchurch, New Zealand, and how long Christmas Day is to folks who 
live there — it's their Summer Holiday time! 

One last suggestion: try 'going' to the Galapagos Islands (0 deg. 
lat., 91 W) on, say, November 21st of 1984, then set the time to dawn 
and display the eastern horizon. Start a monthly cycle ( + , then M) and 
let it run for a year or so. Back up, if you like, using the - key. Try using 
a 10-day interval ("Clear" key — no Shift!). Try the same thing, but from 
Hawaii (19 N, 155 W) or Tahiti (18 S, 149 W). Then try it from Iceland 
or the Yukon, and your own back yard. Enjoy! 

— Dick Barkley 
President 


KANGA 

Kanga, by Allan Knopp comes to us from the English Atari magazine, 
PAGE 6. "Kanga is a maze game in which you control a jumping 
kangaroo moving around various platforms. In order to progress to the 
next screen you must first get to the sparkling jewel in the center of the 
screen and jump up to touch it. This causes a further section of the 
platform to appear which will enable you to reach the exit. 

"Coming too close to the edge of the platform will cause the 
kangaroo to fall into space and lose a life. Lives can also be lost by being 
hit by a laser which fires at random from the windows in the left hand 
wall. There is a time limit which causes the game to end when it reaches 
zero. The score remaining at the end of each screen is added to the total 
and displayed at the end of the game as the final score. 


ATARI 520 ST 

Nine users here in Eugene have had their 520 STs since'mid-July. 
I've been "using" mine even more than my XE. I say "using" since there 
really isn't much software for it yet. It came to us with only the GEM 
Desktop, the operating system, and Atari LOGO programming language. 
I've still not begun to learn LOGO, but I intend to dabble in it a bit. Since 
then we've received about a disk full of public domain demos and 
advertisements sent to us from the San Leandro Computer Club (their 
July and August disks). These demos really whet my appetite for the 
powerful programs to come! 

There is a terminal emulator built into the ST operating system. I've 
been using this and a 1200 baud modem to talk to the BBS's around 
town. This has been a lot of fun. I've also been making a lot of copies 
of the public domain stuff for the other ST users in town. Boy is disk 
management easy and QUICK! Even with one disk drive, although I 
usually remind the user to bring their drive to speed copying. 

The keyboard is a great improvement on the IBM PC keyboard I've 
used at work for the past 3 years. It does lack one thing my old 800 
had: A decent space on which to rest my palms while typing. Looking 
at my XE, I see it also has nearly zero space between the spacebar and 
the edge of the machine. But I didn't notice this lack on the XE since 
the space bar is not wide and there is an area on each side of the space 
bar on which to rest my palms when I'm not acutally striking keys. 

A couple of other minor things: It took me a little while to figure 
out how to set the clock and calender on the ST. The manual did not 
make clear to me I had to "backspace" over the default settings before 
typing in the new. And when I try to write to an un-formatted disk, the 
OS tells me the drive is not responding. Seems like the OS could detect 
an unformatted disk. It made me think something was wrong with my 
drive. I kept powering down and trying to get the drive to "respond"! 

Our experience with DOA STs seems to match that of other clubs. 
About 30% of them did not work upon first boot up. But it appears there 
is a fix which has so far been 100% successful. In shipping (or 
something?) the ROM chips become loose. All you need to do (if you 
have this problem) is get in there and re seat all the socketed ICs 
removing the adhesive pads from the two 68-pin square chips. Here's 
the procedure (reported by Joe Wrobel in the August, 1985 issue of The 
Acorn Kernel ) which, we are told is approved by Atari and assured it 
will not void our warranty: 

"You start by removing the 6 screws accessible through the bottom 
of the unit. This frees the top cover which can be set aside. Removing 
the cover reveals the keyboard which is sitting atop a metal shield 
protecting the main PC board underneath. The keyboard is connectec 
to the main board by a keyed 18-pin in-line connector. To remove the 
keyboard, one just disconnects this connector and undoes the tape which 
holds the cable to the metal shield. The keyboard can now be set aside. 
The top metal shield is held down to the main board by three screws 
and a series of twisted taps which come up from the metal shield beneath 
the main board and fit into slots in the top shield. Two of these tab-slot 
pairs (one on each side) are soldered together. After removing the screws 
and untwisting the other tabs, these bonds are desoldered to remove 
the top metal shield. 

"The top shield has copper tape covering holes in its top and rear. 
These holes are there for access to and output from the RF modulator 
which was originally planned into the machines and has subsequently 
been removed (at least for US purchasers) .... 

"I reseated the DIP ICs by first using a small screwdriver to gently 
lift each end of the 1C partly out of its socket, and then firmly pressing 
them back into place. The two square ICs were removed by prying them 
out with asmall tool like a jeweler's screwdriver inserted into a corner 
of the 1C socket. I peeled the double-sided adhesive off the chips and 
removed any remnants with my finger nail, then snapped them back in 
their respective sockets. If you should have to go through this procedure 
with your machine, be very careful to note the orientation of the square 
chips in their sockets before you remove them, and work on them one 
at a time so they can't get switched. 

"Re-assembly of the ST goes rather quickly. When replacing the 
external screws, note the three longer ones are used to fasten the case 
at the rear of the machine." 

A user here in Eugene called Atari for a warranty replacement rather 
than to open up his machine. Atari was very helpful and air-shipped him 
a replacement upon his phone call (and before they had even received 
the old machine!). His replacement arrived the day after he mailed off 
the old one. 

- Jim Bumpas 
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Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to Atari Corp. We are a group 
interested in educating our members in the use of the Atari Computer 
and in giving the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our 
members. 

Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 
**President— Dick Barkley, 2907 Wingate, Eugene, OR 97405 
503-344-5843 

Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
503-686-1490 

Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, OR 97404 
(503) 689-7106. 

Editors —Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 

503-344-6193 

—Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 

503-484-4746 

E.R.A.C.E. (Education SIG Editor)— Nora Young, 105 Hansen Lane, 

Eugene, OR 97404 / 503-688-1458 
Send 50c stamps or coin ($1 overseas) to the Ness' for the new, 
updated ACE Library List — new in May 84 ! 

Bulletin Board 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists 
of an 800 XL, 2 double-density double sided disk drives and 2 double¬ 
sided, double-density, 80-track disk drives, an Epson MX80 printer, a 
1200 baud Prentice P212ST modem, running the Mindlink Bulletin Board 
software distributed by SofMark. 

Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 

Volume 2 covers July 1982 to June 1983 

Only $12 each ($2 extra for Airmail). Available only from: 

George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 


TYPESETTING 

FROM YOUR COMPUTER 

ATARI OWNERS: If you-have a modem, text editor, and com¬ 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes "on line!' 
And it's easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 



30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder Index 

A composite index of Atari related articles in four popular computer 
periodicals, including ACE. Volume Icovers April, 1981 to June, 1983. 
Volume 2 covers July, 1983 to December, 1985. Only $6 per printed copy 
or $11 per disk copy for ACE members: 

Jim Carr 2660 S.W. DeArmond 
Corvallis, OR 97333 








MAIL 


